#library(Themis2)
#library(NMF)
args <- commandArgs(trailingOnly = TRUE)
print(args[[1]])
print(args[[2]])
print(args[[3]])
print(args[[4]])
print(args[[5]])
print(args[[6]])
print(args[[7]])
print(args[[8]])
method <- args[[5]]
nrun <- as.numeric(args[[6]])
seed <- as.numeric(args[[7]])
clusterNum <- as.numeric(args[[8]])

exp <- args[[1]]
gene <- args[[2]]
dir <- args[[3]]
p <- args[[4]]
setwd(dir)

#num <-NMFAnalysis(exp,gene,dir,clusterNum,method,nrun,seed)
#print(num)
#Themis_custom_method(dir, p)
#Themis_process(dir)
#Themis_output(dir)
print("call NMFAnalysis finish!")